home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / ingm.dir / 00018_flashSprite.ls < prev    next >
Encoding:
Text File  |  2001-03-01  |  887 b   |  42 lines
  1. property meSprite, meMember, gm, startCounter, stopCounter
  2. global sessionObject, monkey
  3.  
  4. on beginSprite me
  5.   startCounter = 0
  6.   stopCounter = 0
  7.   meSprite = sprite(me.spriteNum)
  8.   meMember = meSprite.member
  9.   puppetTempo(meMember.fixedRate)
  10.   gm = the frameLabel
  11. end
  12.  
  13. on exitFrame me
  14.   if meSprite.frame = meMember.frameCount then
  15.     if stopCounter = 30 then
  16.       goOn(me)
  17.     else
  18.       stopCounter = stopCounter + 1
  19.     end if
  20.   else
  21.     if meSprite.playing = 0 then
  22.       if startCounter = 20 then
  23.         meSprite.play()
  24.       else
  25.         startCounter = startCounter + 1
  26.       end if
  27.     end if
  28.   end if
  29. end
  30.  
  31. on goOn me
  32.   if monkey.monkeyRunning = 0 then
  33.     if meSprite.playing = 0 then
  34.       xFrame = string(sessionObject.getFrame(gm))
  35.       monkey.traceMonkey()
  36.       updateStage()
  37.       go(xFrame, "gm" & gm)
  38.       sound(2).play(member("introSnd", 1))
  39.     end if
  40.   end if
  41. end
  42.